MODULE derived
USE param

TYPE lammps_file_info
CHARACTER(LEN=len_fn) :: source
CHARACTER(LEN=len_fn) :: outfile
INTEGER :: n_atom
REAL(DBL) :: time_step
END TYPE lammps_file_info

TYPE lattice_site_info
REAL(DBL) :: px,py,pz
INTEGER :: n_near_atom
LOGICAL :: removed
INTEGER,POINTER,DIMENSION(:) :: near_atom_list
END TYPE lattice_site_info

TYPE atom_info
REAL(DBL) :: px,py,pz
integer :: no
END TYPE atom_info

TYPE cell_box_info
INTEGER :: n_lattice
INTEGER,DIMENSION(2) :: lattice_list
INTEGER :: n_neighbor
INTEGER,DIMENSION(27) :: neighbor_cell_list
real(dbl),dimension(27) :: bx,by,bz
END TYPE cell_box_info

type neighbor_lattice_info
real(dbl) :: px,py,pz
end type neighbor_lattice_info

END MODULE derived
